CENTRO DE HIDROGÊNIO VERDE

Análise Bibliométrica

Victor Valerio

30-05-2022

AMOSTRA DE ARTIGOS CIENTÍFICOS

INDICADOR VALOR
Timespan 1997:2022
Sources (Journals, Books, etc) 268
Documents 890
Average years from publication 1.94
Average citations per documents 8.304
Average citations per year per doc 2.334
References 39189
Keywords Plus (ID) 3164
Author’s Keywords (DE) 2260
Authors 2909
Author Appearances 4477
Authors of single-authored documents 57
Authors of multi-authored documents 2852
Single-authored documents 62
Documents per Author 0.306
Authors per Document 3.27
Collaboration Index 3.44

ANÁLISE DOS TEMAS

CRESCIMENTO DOS TEMAS

PRODUTIVIDADE DOS AUTORES

# Geração de Dados de Produtividade dos Autores:
curva_lotka <- lotka(resultado)

curva_lotka_observada <- tibble::as_tibble(curva_lotka[["AuthorProd"]]) %>% 
  dplyr::rename('Articles' = N.Articles,
                'Authors' = N.Authors,
                'Observed' = Freq)

curva_lotka_teorica <- tibble::as_tibble(10^(log10(curva_lotka$C)-2*log10(curva_lotka$AuthorProd[,1]))) %>% 
  dplyr::rename('Theoretical' = value)


lotka_consolidado <- cbind(curva_lotka_observada, 
                           curva_lotka_teorica) %>% 
  dplyr::mutate(Observed = round(as.numeric(Observed), 4),
                Theoretical = round(as.numeric(Theoretical), 4)) %>% 
  dplyr::select(!Authors) %>% 
  tidyr::pivot_longer(-Articles,
                      names_to = 'Type',
                      values_to = 'Value')


# Gerando Gráfico de Produtividade dos Autores:
grafico_lotka <- lotka_consolidado %>% 
  ggplot(mapping = aes(x = Articles, y = Value, color = Type)) + 
  geom_line(size = 0.5) +
  geom_point(size = 1.5) +
  labs(color = '', 
       x = 'Articles', 
       y = 'Freq. of Authors') + 
  theme(legend.position = 'bottom')

grafico_lotka

# Beta coefficient estimate
#L$Beta
# Constant
#L$C
# Goodness of fit
#L$R2
# P-value of K-S two sample test
#L$p.value